home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / hell. regeln (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  490b  |  21 lines
  1. 10 rem *************************
  2. 20 rem * ansteuerung von motor *
  3. 30 rem *  und/oder gluehbirne  *
  4. 40 rem *************************
  5. 45 :
  6. 50 b$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  7. 51 print"[147]          111111"
  8. 52 print"0123456789012345"
  9. 53 print"[171][219]";right$(b$,16)
  10. 54 print"bedienung des schiebereglers mit den    cursortasten"
  11. 60 poke56579,15
  12. 70 i=0
  13. 80 geta$:if a$=""then80
  14. 90 if a$=""theni=i-1
  15. 100 ifa$=""theni=i+1
  16. 110 ifi>15theni=15
  17. 112 ifi<0theni=0
  18. 120 poke56577,i
  19. 130 print""left$(b$,i+1);"[219]";right$(b$,16-i)
  20. 140 goto80
  21.